home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Reversi.dxr / playing cards_56_shitz.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.4 KB  |  62 lines
  1. global points, win, tableau, currentsel, topRow, midRow, botRow
  2.  
  3. on prepareFrame me
  4.   topRow = [11, 12, 13, 14, 15, 16, 17]
  5.   midRow = [18, 19, 20, 21, 22, 23, 24]
  6.   botRow = [25, 26, 27, 28, 29, 30, 31]
  7.   points = 0
  8.   win = "no"
  9.   currentsel = []
  10.   tableau = [:]
  11. end
  12.  
  13. on drow arg
  14.   if arg = 11 then
  15.     return #one
  16.   else
  17.     if arg = 13 then
  18.       return #two
  19.     else
  20.       if arg = 15 then
  21.         return #three
  22.       else
  23.         if arg = 17 then
  24.           return #four
  25.         else
  26.           if arg = 18 then
  27.             return #five
  28.           else
  29.             if arg = 20 then
  30.               return #six
  31.             else
  32.               if arg = 22 then
  33.                 return #seven
  34.               else
  35.                 if arg = 24 then
  36.                   return #eight
  37.                 else
  38.                   if arg = 25 then
  39.                     return #nine
  40.                   else
  41.                     if arg = 27 then
  42.                       return #ten
  43.                     else
  44.                       if arg = 29 then
  45.                         return #eleven
  46.                       else
  47.                         if arg = 31 then
  48.                           return #twelve
  49.                         end if
  50.                       end if
  51.                     end if
  52.                   end if
  53.                 end if
  54.               end if
  55.             end if
  56.           end if
  57.         end if
  58.       end if
  59.     end if
  60.   end if
  61. end
  62.